home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / dialogic.zip / DIALOG2.DB < prev    next >
Text File  |  1990-01-31  |  2KB  |  55 lines
  1. DB(Level%, 1).Code = 1
  2. DB(Level%, 1).Y = 0
  3. DB(Level%, 1).X = 0
  4. DB(Level%, 1).Height = 13
  5. DB(Level%, 1).Wdth = 65
  6. DB(Level%, 1).BorderType = 1
  7. DB(Level%, 1).PrimaryColor = -c1
  8. DB(Level%, 1).WindowColor = -c1
  9. DB(Level%, 1).Text = "The Window"
  10. DB(Level%, 1).TextColor = c2
  11. DB(Level%, 1).SecondaryColor = c1
  12.  
  13. LB(1).Text = "There are eight dialog box elements we'll discuss. The"
  14. LB(2).Text = "first is the dialog box window.  The window is actually"
  15. LB(3).Text = "the dialog box background.  You may specify the color,"
  16. LB(4).Text = "position, size, and title.  Furthermore, windows may"
  17. LB(5).Text = "optionally explode or cast a shadow.  This window has a"
  18. LB(6).Text = "shadow.  The next dialog box will be drawn as an exploding"
  19. LB(7).Text = "window ..."
  20.  
  21. DB(Level%, 2).Code = 3
  22. DB(Level%, 2).Y = 2
  23. DB(Level%, 2).X = 2
  24. DB(Level%, 2).Height = 7
  25. DB(Level%, 2).Wdth = 1
  26. DB(Level%, 2).WindowColor = c1
  27. DB(Level%, 2).PrimaryColor = c1
  28. DB(Level%, 2).SecondaryColor = c2
  29. DB(Level%, 2).SelectedColor = -1
  30. DB(Level%, 2).StarColor = c1
  31. DB(Level%, 2).ItemLength = 60
  32. DB(Level%, 2).KeyColor = 0
  33. DB(Level%, 2).BorderType = 0
  34. DB(Level%, 2).Link = 0
  35. DB(Level%, 2).TextY = 0
  36. DB(Level%, 2).TextX = 0
  37. DB(Level%, 2).TextColor = c1
  38. DB(Level%, 2).NumberOne = 1
  39. DB(Level%, 2).NumberTwo = 7
  40. DB(Level%, 2).Default = 0
  41.  
  42. DB(Level%, 3).Code = 7
  43. DB(Level%, 3).Y = 12
  44. DB(Level%, 3).X = 30
  45. DB(Level%, 3).Text = "~OK"
  46. DB(Level%, 3).PrimaryColor = c1
  47. DB(Level%, 3).WindowColor = c1
  48. DB(Level%, 3).SelectedColor = c3
  49. DB(Level%, 3).KeyColor = c4
  50. DB(Level%, 3).SecondaryColor = c4
  51. DB(Level%, 3).TextString = CHR$(13)
  52.  
  53. DB(Level%, 4).Code = 0
  54.  
  55.